VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Galileo Accountant ver 1.01"
   ClientHeight    =   10080
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   16545
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   10080
   ScaleWidth      =   16545
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command11 
      Caption         =   "Balance"
      Height          =   495
      Left            =   13560
      TabIndex        =   11
      Top             =   4920
      Width           =   1455
   End
   Begin VB.CommandButton Command10 
      Caption         =   "ROE Report"
      Height          =   495
      Left            =   13560
      TabIndex        =   10
      Top             =   4440
      Width           =   1455
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Close"
      Height          =   495
      Left            =   13560
      TabIndex        =   9
      Top             =   5880
      Width           =   1455
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Report"
      Height          =   495
      Left            =   13560
      TabIndex        =   8
      Top             =   3960
      Width           =   1455
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Search"
      Height          =   495
      Left            =   13560
      TabIndex        =   7
      Top             =   3480
      Width           =   1455
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Temporary receipt"
      Height          =   495
      Left            =   13560
      TabIndex        =   6
      Top             =   3000
      Width           =   1455
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Temporary invoice"
      Height          =   495
      Left            =   13560
      TabIndex        =   5
      Top             =   2520
      Width           =   1455
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Budget flow"
      Height          =   495
      Left            =   13560
      TabIndex        =   4
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Money exchange"
      Height          =   495
      Left            =   13560
      TabIndex        =   3
      Top             =   1560
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Make an receipt"
      Height          =   495
      Left            =   13560
      TabIndex        =   2
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Make an invoice"
      Height          =   495
      Left            =   13560
      TabIndex        =   1
      Top             =   600
      Width           =   1455
   End
   Begin VB.PictureBox Picture1 
      Height          =   8895
      Left            =   0
      ScaleHeight     =   8835
      ScaleWidth      =   12915
      TabIndex        =   0
      Top             =   600
      Width           =   12975
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Call SetParent(frmIncoice.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.Show
                    Call frmIncoice.Move(0, 0)
                    frmIncoice.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.lblTitle = "INVOICE"
                    frmIncoice.txtBillType.Text = "IV"
                     frmIncoice.Label1(0).Caption = "Offc"
                     Call frmIncoice.CreatIDNumber
End Sub

Private Sub Command10_Click()
Call SetParent(frmROE.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmROE.BorderStyle = 0
                    frmROE.Show
                   ' Call FRMrEPORT.Move(0, 0)
                    frmROE.Left = Picture1.Width / 2 - frmROE.Width / 2
                    frmROE.Top = Picture1.Width / 2 - frmROE.Height / 1.2
                    frmROE.ZOrder (0)
                    frmROE.BorderStyle = 0
                    
End Sub

Private Sub Command11_Click()
Call SetParent(frmBalance.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmBalance.BorderStyle = 0
                    frmBalance.Show
                   ' Call FRMrEPORT.Move(0, 0)
                    frmBalance.Left = Picture1.Width / 2 - frmBalance.Width / 1.6
                    frmBalance.Top = Picture1.Width / 2 - frmBalance.Height / 1.2
                    frmBalance.ZOrder (0)
                    frmBalance.BorderStyle = 0
End Sub

Private Sub Command2_Click()
Call SetParent(frmIncoice.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.Show
                    Call frmIncoice.Move(0, 0)
                    frmIncoice.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.lblTitle = "RECEIPT"
                    frmIncoice.txtBillType.Text = "RC"
                     frmIncoice.Label1(0).Caption = "Offc"
                     Call frmIncoice.CreatIDNumber
End Sub

Private Sub Command3_Click()
Call SetParent(frmME.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmME.BorderStyle = 0
                    frmME.Show
                    Call frmME.Move(0, 0)
                    frmME.ZOrder (0)
                    frmME.BorderStyle = 0
                    frmME.lblTitle = "Money Exchange"
                    frmME.txtBillType.Text = "ME"
                     
End Sub

Private Sub Command4_Click()

Call SetParent(frmIncoice.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.Show
                    Call frmIncoice.Move(0, 0)
                    frmIncoice.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.lblTitle = "BUDGET FLOW"
                    frmIncoice.txtBillType.Text = "BF"
                    frmIncoice.Label1(0).Caption = "Source"
                    Call frmIncoice.CreatIDNumber
End Sub

Private Sub Command5_Click()
Call SetParent(frmIncoice.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.Show
                    Call frmIncoice.Move(0, 0)
                    frmIncoice.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.lblTitle = "TEMPORARY INVOICE"
                    frmIncoice.txtBillType.Text = "TI"
                    frmIncoice.Label1(0).Caption = "Offc"
                    Call frmIncoice.CreatIDNumber
End Sub

Private Sub Command6_Click()
Call SetParent(frmIncoice.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.Show
                    Call frmIncoice.Move(0, 0)
                    frmIncoice.ZOrder (0)
                    frmIncoice.BorderStyle = 0
                    frmIncoice.lblTitle = "TEMPORARY RECEIPT"
                    frmIncoice.txtBillType.Text = "TR"
                     frmIncoice.Label1(0).Caption = "Offc"
                     Call frmIncoice.CreatIDNumber
End Sub

Private Sub Command7_Click()
Call SetParent(frmSearch.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    frmSearch.BorderStyle = 0
                    frmSearch.Show
                    Call frmSearch.Move(0, 0)
                    frmSearch.ZOrder (0)
                    frmSearch.BorderStyle = 0
                    frmSearch.lblTitle = "SEARCH"
                    'frmIncoice.txtBillType.Text = "TI"
End Sub

Private Sub Command8_Click()
Call SetParent(FRMrEPORT.hWnd, Picture1.hWnd)
                    Picture1.ZOrder (0)
                    FRMrEPORT.BorderStyle = 0
                    FRMrEPORT.Show
                   ' Call FRMrEPORT.Move(0, 0)
                    FRMrEPORT.Frame1.Left = Picture1.Width / 2 - FRMrEPORT.Frame1.Width / 2
                    'FRMrEPORT.Frame1.Top = Picture1.Height / 2 - FRMrEPORT.Frame1.Height / 2
                    'FRMrEPORT.Command5.Top = FRMrEPORT.Frame1.Top + FRMrEPORT.Frame1.Height + 100
                    FRMrEPORT.ZOrder (0)
                    FRMrEPORT.BorderStyle = 0
                    'FRMrEPORT.lblTitle = "REPORT"
End Sub

Private Sub Command9_Click()
End
End Sub

